      subroutine modelo2dhomog()

      use globais
      implicit none
      

      real*4 ::xmin,zmin
      integer :: i,j
!velocidade de propagacao no ar = 340m/s
 !velocidade de propagacao na agua = 1450m/s
! massa especifica da agua = 1000


! material 1
      do j=1,Nz
	  do i=1,Nx
	      c(i,j) = 2000.
	  enddo
      enddo


      do j=1,Nz
	  do i=1,Nx
	      rho(i,j) = 2000.
	  enddo
      enddo





      ! buoyancy e bulk modulus no grid
      do i=1,Nx
	  do j=1,Nz
	      b(i,j) = 1.0/rho(i,j)
	      K(i,j) = rho(i,j)*c(i,j)**2	  
	  enddo
      enddo





      end subroutine modelo2dhomog